#!/usr/bin/perl

open(IN, $ARGV[0]) or die "$ARGV[0] cannot be opened to read.\n";
open(OUT, ">$ARGV[1]") or die "$ARGV[1] cannot be opened to write.\n";


while(<IN>)
{
	$line=$_;
	chomp($line);
	
	@block=split(', ', $line);
	if($block[3]!=0)
	{
		print OUT "$line\n";
	}

}

close(IN);
close(OUT);
